Адміністрація вирішила продати даний сайт. За детальною інформацією звертайтесь за адресою: rozrahu@gmail.com

Створення макросів для MsWord.

Інформація про навчальний заклад

ВУЗ:
Національний університет Львівська політехніка
Інститут:
Інститут комп’ютерних наук та інформаційних технологій
Факультет:
Не вказано
Кафедра:
Програмного забезпечення (ПЗ)

Інформація про роботу

Рік:
2008
Тип роботи:
Лабораторна робота
Предмет:
Людино-машинні інтерфейси

Частина тексту файла

Міністерство науки і освіти України Національний університет “Львівська Політехніка” Інститут комп’ютерних наук та інформаційних технологій Кафедра ПЗ Звіт З лабораторних робіт №1,2,3 з курсу «Людино-машинні інтерфейси» Виконано Студент групи ПІ-2 Львів 2008 Тема: Створення макросів для MsWord Мета: Навчитись створювати макроси для прискорення роботи з MsWord. Завдання: Створити макрос для вирахування елементів матриці А за наступним правилом : А[i][j]=3*B[i][j]/Bmax .Ввід організовувати за допомогою InputBox, а вивід за допомогою MsgBox. Створити макрос який задає параметри для абзацу поточного документа. 3) Створити макрос, який додає користувацьке меню, а всі пункти стандартного меню приховує. Макрос має створити користувацьку панель та дві кнопки. Перша кнопка має змінювати стиль фрагменту тексту, інша – викликати помічника і продемонструвати роботу з ним. Теоретичні відомості   В об’єкт Document входять об’єкти Bookmarks Characters (Range) CommandBars Comments DocumentProperties Endnotes Fields Footnotes FormFields Frames Hyperlinks Indexes InlineShapes HorizontalLineFormat ListParagraphs Lists ListParagraphs Range ListTemplates ListLevels Font Paragraphs ProofreadingErrors (Range) Revisions ReadabilityStatistics Scripts Sections Sentences (Range) Shapes StoryRanges (Range Styles Subdocuments Tables TablesOfAuthoritiesCategories (TableOfAuthoritiesCategory) TablesOfAuthorities (TableOfAuthorities) TablesOfContents (TableOfContents) TablesOfFigures (TableOfFigures) Variables Versions Windows Words (Range) Сімейство Paragraphs представляє всі абзаци документа, сімейство Sentences – всі речення, Words – всі слова, а Characters – всі символи документа. В об’єктній моделі Office всі панелі інструментів і меню представлені об’єктами типу CommandBar. Всі об’єкти CommandBar програми об’єднані в сімейство CommandBars. Тексти макросів: Макрос 1: Dim A(4, 4) As Double Dim B(4, 4) As Integer Dim max As Integer Sub mas() Dim msg, msg1 As String For i = 0 To 3 Step 1 For j = 0 To 3 Step 1 msg = "Введіть елемент B[" & i + 1 & "][" & j + 1 & "]=": B(i, j) = InputBox(msg, "Введення масиву В:", 0) Next j Next i max = max_element(B()) msg = "масив A:" & vbCrLf For i = 0 To 3 Step 1 For j = 0 To 3 Step 1 A(i, j) = 3 * B(i, j) / max msg = msg & "A[" & i + 1 & "][" & j + 1 & "]=" & A(i, j) & " " msg1 = msg1 & "B[" & i + 1 & "][" & j + 1 & "]=" & B(i, j) & " " Next j msg = msg & vbCrLf msg1 = msg1 & vbCrLf Next i msg1 = msg1 & "max=" & max & vbCrLf msg = msg1 & msg MsgBox msg End Sub Public Function max_element(BB() As Integer) As Integer Dim max1 As Integer max1 = 0 For i = 0 To 3 Step 1 For j = 0 To 3 Step 1 If max1 < BB(i, j) Then max1 = BB(i, j) Next j Next i max_element = max1 End Function Sub My_macro() ' ' My_macro Макрос ' Макрос создан 01.11.2008 Customer ' mas() End Sub Макрос 2: Attribute VB_Name = "NewMacros1" Dim number As Integer Dim num As Integer Sub my_macros_for_formatting_paragraph() Attribute my_macros_for_formatting_paragraph.VB_Description = "Макрос создан 01.11.2008 Customer" Attribute my_macros_for_formatting_paragraph.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.my_macros_for_formatting_paragraph" number = InputBox("Введіть номер абзацу який будете форматувати ", "Введення:", 0) If (number > ActiveDocument.Paragraphs.Count) Or (number < 0) _ Then MsgBox "Значення виходить за межі кількості абзаців": Exit Sub 'Alignment: вирівнювання абзацу num = InputBox("Введіть:" & vbCrLf & "1 для вирівнювання по правому краю" & vbCrLf & "2 для...
Антиботан аватар за замовчуванням

01.01.1970 03:01

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, увійдіть або зареєструйтесь.

Завантаження файлу

Якщо Ви маєте на своєму комп'ютері файли, пов'язані з навчанням( розрахункові, лабораторні, практичні, контрольні роботи та інше...), і Вам не шкода ними поділитись - то скористайтесь формою для завантаження файлу, попередньо заархівувавши все в архів .rar або .zip розміром до 100мб, і до нього невдовзі отримають доступ студенти всієї України! Ви отримаєте грошову винагороду в кінці місяця, якщо станете одним з трьох переможців!
Стань активним учасником руху antibotan!
Поділись актуальною інформацією,
і отримай привілеї у користуванні архівом! Детальніше

Оголошення від адміністратора

Антиботан аватар за замовчуванням

пропонує роботу

Admin

26.02.2019 12:38

Привіт усім учасникам нашого порталу! Хороші новини - з‘явилась можливість кожному заробити на своїх знаннях та вміннях. Тепер Ви можете продавати свої роботи на сайті заробляючи кошти, рейтинг і довіру користувачів. Потрібно завантажити роботу, вказати ціну і додати один інформативний скріншот з деякими частинами виконаних завдань. Навіть одна якісна і всім необхідна робота може продатися сотні разів. «Головою заробляти» продуктивніше ніж руками! :-)

Новини